home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / casman.arc / CASMAN.BAS (.txt) next >
Encoding:
GW-BASIC  |  1984-09-19  |  38.0 KB  |  451 lines
  1. 100  KEY OFF:COLOR 31,0:CLS:LOCATE 12,33:PRINT "Initializing...":GOSUB 450
  2. 101  COLOR 0,0:CLS:COLOR 0,7:LOCATE 2,19:PRINT"C A S M A N  Cassette Tape Management System";:COLOR 7,0:LOCATE 4,26:PRINT"(c) 1984, Rainy Day Software.":LOCATE 5,35:PRINT "Version 1.0";
  3. 102  LOCATE 7,1:FILES DRIVE$+"*.CAS":FOR L=7 TO 18:IF SCREEN(L,1)=32 THEN LOCATE L,1:PRINT SPC(20):L=18:GOTO 103 ELSE LOCATE L,9:PRINT"    ":LOCATE L,27:PRINT"    ":LOCATE L,45:PRINT"    ":LOCATE L,63:PRINT"    ":
  4. 103  NEXT
  5. 104  LOCATE 7,1:PRINT"                       ";:COLOR 9,0:PRINT"Current Tape Files from Drive ";DRIVE$:LOCATE 23,11:COLOR 15,0:PRINT "WARNING:";:COLOR 7,0:PRINT " Do Not Remove Your Tape File Disk After This Screen";
  6. 105  COLOR 9,0:LOCATE 25,31:PRINT"Press ESC to Exit";:COLOR 15,0:LOCATE 19,24:PRINT"ENTER TAPE FILENAME===> ":COLOR 7,0:LOCATE 21,25:PRINT"(Enter ";:COLOR 0,7:PRINT"+";:COLOR 7,0:PRINT" to Change Disk Drive)";
  7. 106  RW=19:CL=48:T=176:LN=8:GOSUB 385:FILE$=NTRY$:IF RIGHT$(NTRY$,1)=CHR$(27) THEN CLS:SYSTEM ELSE IF NTRY$="" THEN SOUND 100,2:GOTO 105
  8. 107  IF NTRY$<>"+" THEN 115 ELSE LOCATE 19,24:PRINT"ENTER TAPE FILENAME===>  ":LOCATE 21,25:COLOR 15,0:PRINT"    Enter the Drive Letter        "
  9. 108  I$=INKEY$:IF I$="" THEN 108
  10. 109  IF I$=CHR$(27) THEN LOCATE 21,29:PRINT"                        ":GOTO 105
  11. 110  IF I$="A" OR I$="a" THEN DRIVE$="A:":GOTO 101
  12. 111  IF I$="B" OR I$="b" THEN DRIVE$="B:":GOTO 101
  13. 112  IF I$="C" OR I$="c" THEN DRIVE$="C:":GOTO 101
  14. 113  IF I$="D" OR I$="d" THEN DRIVE$="D:":GOTO 101
  15. 114  SOUND 100,2:GOTO 108
  16. 115  COLOR 25,0:CLS:COLOR 15,0:LOCATE 12,29:PRINT"LOADING FILE: ";FILE$:OPEN DRIVE$+FILE$+".CAS" AS #1 LEN=458
  17. 116  FIELD #1,17 AS T$(1),21 AS T$(2),30 AS T$(3),30 AS T$(4),30 AS T$(5),30 AS T$(6),30 AS T$(7),30 AS T$(8),30 AS T$(9),30 AS T$(10),30 AS T$(11),30 AS T$(12),30 AS T$(13),30 AS T$(14),30 AS T$(15),30 AS T$(16)
  18. 117  GET #1,1:TNUM=CVI(T$(1)):FOR L=1 TO 5:MESSAGE$(L)=T$(L+2):NEXT
  19. 118  SOUND 20000,0.02:CHECK1=0:KEY OFF:COLOR 0,0:CLS:COLOR 0,7:LOCATE 2,19:PRINT"C A S M A N  Cassette Tape Management System";:COLOR 9,0:LOCATE 4,36:PRINT"MAIN MENU";:COLOR 10,0,0:LOCATE 6,28:PRINT"1. Display Tape Directory";
  20. 119  LOCATE 8,28:PRINT"2. Tape/Selection Search";:LOCATE 10,28:PRINT"3. Enter New Tape";:LOCATE 12,28:PRINT"4. Modify Record";:LOCATE 14,28:PRINT"5. Print Tape Directory";:LOCATE 16,28:PRINT"6. Print Cassette Cover";
  21. 120  LOCATE 18,28:PRINT"7. Restart CASMAN";:LOCATE 20,28:PRINT"8. Quit CASMAN";:COLOR 15,0:LOCATE 22,18:PRINT"Select 1-8 or H for Help/Information Screens";:LOCATE 22,25:COLOR 31,0:PRINT"1-8";:LOCATE 22,32:COLOR 16,7:PRINT"H";:COLOR 15,0
  22. 121  LOCATE 25,1:PRINT DATE$;:LOCATE 25,24:PRINT"Current Tape File===> ";:COLOR 0,7:PRINT DRIVE$;FILE$;:COLOR 15,0
  23. 122  V$=INKEY$:LOCATE 25,71:PRINT TIME$;:IF V$="" GOTO 122
  24. 123  IF V$="h" OR V$="H" THEN 480 ELSE V=VAL(V$):IF V<1 OR V>8 THEN SOUND 100,2:GOTO 122
  25. 124  ON V GOTO 125,189,212,280,309,335,380,382
  26. 125  SET=0:COLOR 0,0:CLS:COLOR 0,7:LOCATE 5,7:PRINT"C A S M A N  Cassette Tape Management System";:COLOR 9,0:LOCATE 5,53:PRINT"(1) TAPE DIRECTORY";:COLOR 10:LOCATE 8,29:PRINT"1. Display Tape List";
  27. 126  LOCATE 11,29:PRINT"2. Display Song List";:LOCATE 14,29:PRINT"3. Display Single Tape";:LOCATE 19,34:PRINT"Select (1-3)";:LOCATE 25,31:PRINT"Press ESC to exit";
  28. 127  J$=INKEY$:IF J$="" GOTO 127
  29. 128  IF J$=CHR$(27) THEN 118
  30. 129  I=VAL(J$):IF I<>1 AND I<>2 AND I<>3 THEN SOUND 100,2:GOTO 127
  31. 130  IF I=2 THEN 165
  32. 131  IF I=3 THEN 182
  33. 132  SET=0
  34. 133  CLS:COLOR 0,7:LOCATE 25,7:PRINT"C A S M A N  Casette Tape Management System:";:COLOR 9,0:LOCATE 25,53:PRINT"(1) Tape Directory";:COLOR 9,0:LOCATE 1,1:PRINT" #      Artist    SIDE A     Title            Artist    SIDE B    Title        ";
  35. 134  LOCATE 1,19:COLOR 16,7:PRINT"SIDE A";:LOCATE 1,57:PRINT"SIDE B";:COLOR 7,0:FOR L=2 TO 23:N=L+SET-1:IF N<=TNUM THEN 142
  36. 135  IF SET<>0 THEN FOR M=L TO 23:LOCATE M,1:PRINT SPACE$(80);:NEXT:LOCATE 24,1:PRINT SPACE$(79);:SOUND 2000,0.1:COLOR 15,0:LOCATE L,6:PRINT"Press (Ctrl-) PgUp, ESC to Exit or D to Display a Single Tape (incl. songs)";:GOTO 137
  37. 136  SOUND 2000,0.1:COLOR 15,0:LOCATE L,9:PRINT"Press ESC to Exit or D to Display a Single Tape (incl. songs)";
  38. 137  I$=INKEY$:IF I$="" GOTO 137
  39. 138  IF I$=CHR$(27) THEN SET=0:GOTO 125
  40. 139  IF LEN(I$)=2 AND RIGHT$(I$,1)="I" AND SET<>0 THEN SET=SET-22:GOTO 133 ELSE IF LEN(I$)=2 AND RIGHT$(I$,1)="DATA" AND SET<>0 THEN SET=0:GOTO 133
  41. 140  IF I$<>"d" AND I$<>"D" THEN SOUND 100,2:GOTO 137
  42. 141  GOTO 153
  43. 142  I$=INKEY$:IF I$<>"" THEN CHECK4=1:GOTO 146 ELSE GET #1,N*2:COLOR 15,0:LOCATE L,1:PRINT USING"###";N;:PRINT" ";T$(1);:COLOR 7,0:PRINT T$(2);:GET #1,N*2+1:COLOR 15,0:PRINT T$(1);:COLOR 7,0:PRINT T$(2);:NEXT
  44. 143  IF SET<>0 THEN SOUND 2000,0.1:COLOR 15,0:LOCATE 24,1:PRINT"Press (Ctrl) PgUp/PgDn, ESC to Exit, or D to Display a Single Tape (incl songs)";:GOTO 145
  45. 144  SOUND 2000,0.1:COLOR 15,0:LOCATE 24,3:PRINT"Press (Ctrl-) PgDn, ESC to Exit, or D to Display a Single Tape (incl. songs)";
  46. 145  I$=INKEY$:IF I$="" GOTO 145
  47. 146  IF LEN(I$)<>2 THEN 151
  48. 147  IF SET<>0 AND RIGHT$(I$,1)="I" THEN IF SET>22 THEN SET=SET-22:GOTO 133 ELSE SET=0:GOTO 133
  49. 148  IF SET<>0 AND RIGHT$(I$,1)="DATA" THEN SET=0:GOTO 133
  50. 149  IF RIGHT$(I$,1)="Q" THEN IF SET<TNUM-22 THEN SET=SET+22:GOTO 133 ELSE SET=TNUM-21:GOTO 133
  51. 150  IF TNUM>SET AND RIGHT$(I$,1)="v" THEN SET=TNUM-21:GOTO 133
  52. 151  IF I$=CHR$(27) THEN SET=0:GOTO 125
  53. 152  IF I$<>"d" AND I$<>"D" THEN IF CHECK4=1 THEN SOUND 100,2:GOTO 142 ELSE SOUND 100,2:GOTO 145
  54. 153  '
  55. 154  LOCATE 16,25:COLOR 15,0:PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE":LOCATE 17,25:PRINT"OPEN                             OPEN":LOCATE 18,25:PRINT"OPEN                             OPEN":LOCATE 19,25:PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD";
  56. 155  LOCATE 17,28:COLOR 31,0:PRINT"Enter Tape Number====>";
  57. 156  RW=17:CL=51:LN=3:T=95:GOSUB 385:NUM=VAL(NTRY$):LOCATE 17,28:COLOR 7,0:PRINT"Enter Tape Number====>";:IF NTRY$="" OR RIGHT$(NTRY$,1)=CHR$(27) THEN NUM=0:GOTO 163
  58. 157  IF NUM>TNUM OR NUM=0 THEN LOCATE 18,27:COLOR 16,7:PRINT"Invalid Number, Reenter...";:COLOR 10:SOUND 100,9:FOR L=1 TO 1500:NEXT:LOCATE 20,27:PRINT"                          ";:SOUND 1500,0.1:GOTO 156
  59. 158  COLOR 0,0:CLS:COLOR 0,7:LOCATE 25,7:PRINT"C A S M A N  Casette Tape Management System:";:COLOR 9,0:LOCATE 25,53:PRINT"(1) Tape Directory";:COLOR 10:COLOR 7,0:LOCATE 2,29:PRINT"Displaying Tape #";NUM:GOSUB 441
  60. 159  LOCATE 4,24:COLOR 31,0:PRINT"Press R to Return or ESC to Exit";
  61. 160  I$=INKEY$:IF I$="" THEN 160
  62. 161  IF I$=CHR$(27) THEN 125
  63. 162  IF I$<>"r" AND I$<>"R" THEN SOUND 100,2:GOTO 160
  64. 163  IF N>TNUM THEN SOUND 100,2:GOTO 125
  65. 164  CLS:SET=SET+22:GOTO 133
  66. 165  CLS:QQ$="Use TAB/Shft-TAB to Tab Forward/Back, Scroll Lock to Pause, and Esc to Exit...":DEF SEG:POKE &H6A,0:DEF SEG=0:POKE &H41A,PEEK(&H41C):IF (PEEK(&H417) AND &H10)=&H10 THEN POKE &H417,(PEEK(&H417)-&H10)
  67. 166  COLOR 15,0:LOCATE 25,2:PRINT QQ$;:COLOR 0,7:LOCATE ,6:PRINT "TAB";:LOCATE ,15:PRINT "TAB";:LOCATE ,40:PRINT "Scroll Lock";:LOCATE ,66:PRINT "Esc";:COLOR 16,7:LOCATE 25,10:PRINT "Shft";:COLOR 10
  68. 167  I=1:J=41:LOCATE 24:FOR L=2 TO TNUM*2+1:FOR M=1 TO 16:IF T$(M)=SPACE$(30) AND I=1 THEN 178
  69. 168  I$=INKEY$:IF I$="" THEN 171 ELSE IF I$=CHR$(27) THEN 125
  70. 169  IF I$=CHR$(9) THEN IF L+(TNUM*2+1)\10 < TNUM*2+1 THEN L=L+(TNUM*2+1)\10:M=1:GOTO 174 ELSE 178 ELSE IF LEN(I$)=2 AND RIGHT$(I$,1)=CHR$(15) THEN IF L-(TNUM*2+1)\10>2 THEN L=L-(TNUM*2+1)\10:M=1:GOTO 174 ELSE L=2:M=1:GOTO 174
  71. 170  SOUND 100,2
  72. 171  CLINE=CSRLIN:CPOS=POS(0)
  73. 172  IF (PEEK(&H417) AND &H10)=&H10 THEN CHECK3=1:COLOR 15,0:LOCATE 25,2:PRINT SPACE$(78);:LOCATE 25,27:PRINT "Press Scroll Lock to Continue...";:COLOR 0,7:LOCATE 25,33:PRINT "Scroll Lock";:I$=INKEY$:IF I$<>"" THEN SOUND 100,2:GOTO 172 ELSE 172
  74. 173  IF CHECK3=1 THEN COLOR 15,0:LOCATE 25,2:PRINT QQ$;:COLOR 0,7:LOCATE ,6:PRINT "TAB";:LOCATE ,15:PRINT "TAB";:LOCATE ,40:PRINT "Scroll Lock";:LOCATE ,66:PRINT "Esc";:COLOR 16,7:LOCATE 25,10:PRINT "Shft";:CHECK3=0:LOCATE CLINE,CPOS
  75. 174  IF M=1 THEN I=1:J=41
  76. 175  IF M=1 OR M=2 THEN COLOR 9,0 ELSE COLOR 7,0
  77. 176  GET #1,L:PRINT TAB(I);T$(M);:SWAP I,J:IF M=1 THEN LOCATE,26:COLOR 0,7:PRINT"Tape";L\2;:IF L\2=L/2 THEN PRINT"Side A";ELSE PRINT"Side B";
  78. 177  NEXT M
  79. 178  IF L<>TNUM*2+1 THEN NEXT L ELSE COLOR 15,0:LOCATE 25,2:PRINT SPACE$(78);:LOCATE 25,20:PRINT "Press Shft-TAB to Back up or Esc to Exit";:COLOR 0,7:LOCATE ,31:PRINT "TAB";:LOCATE ,49:PRINT "Esc";:COLOR 16,7:LOCATE ,26:PRINT "Shft";
  80. 179  I$=INKEY$:IF I$="" THEN 179 ELSE IF I$=CHR$(27) THEN 125
  81. 180  IF LEN(I$)<>2 OR RIGHT$(I$,1)<>CHR$(15) THEN SOUND 100,2:GOTO 178
  82. 181  L=L-(TNUM*2+1)\10:COLOR 15,0:LOCATE 25,2:PRINT QQ$;:COLOR 0,7:LOCATE ,6:PRINT "TAB";:LOCATE ,15:PRINT "TAB";:LOCATE ,40:PRINT "Scroll Lock";:LOCATE ,66:PRINT "Esc";:COLOR 16,7:LOCATE 25,10:PRINT "Shft";:M=1:GOTO 174
  83. 182  '
  84. 183  LOCATE 21,28:COLOR 31,0:PRINT"Enter Tape Number====>":RW=21:CL=51:LN=3:T=95:GOSUB 385:NUM=VAL(NTRY$):LOCATE 21,28:COLOR 7,0:PRINT"Enter Tape Number====>":IF (RIGHT$(NTRY$,1))=CHR$(27) THEN 125
  85. 184  IF NUM>TNUM OR NUM=0 THEN LOCATE 23,27:COLOR 16,7:PRINT"Invalid Number, Reenter...";:COLOR 10:SOUND 100,9:FOR L=1 TO 1500:NEXT:LOCATE 23,27:PRINT"                          ";:SOUND 1500,0.1:GOTO 182
  86. 185  COLOR 0,0:CLS:COLOR 0,7:LOCATE 25,7:PRINT"C A S M A N  Casette Tape Management System:";:COLOR 9,0:LOCATE 25,53:PRINT"(1) Tape Directory";:COLOR 10:COLOR 7,0:LOCATE 2,29:PRINT"Displaying Tape #";NUM:GOSUB 441
  87. 186  LOCATE 4,29:COLOR 31,0:PRINT"Press Any Key to Exit";
  88. 187  I$=INKEY$:IF I$="" THEN 187
  89. 188  GOTO 125
  90. 189  CLS:COLOR 0,7:LOCATE 5,7:PRINT"C A S M A N  Cassette Tape Management System";:COLOR 9,0:LOCATE 5,53:PRINT"(2) Tape/Selection Search";:COLOR 10:Q=0:L=0:LOCATE 8,29:PRINT"1. Search by Artist";
  91. 190  LOCATE 11,29:PRINT"2. Search by Title";:LOCATE 14,29:PRINT"3. Search by Selection";:LOCATE 19,34:PRINT"Select (1-3)";:LOCATE 25,31:PRINT"Press ESC to exit";
  92. 191  J$=INKEY$:IF J$="" GOTO 191
  93. 192  IF J$=CHR$(27) THEN 118
  94. 193  I=VAL(J$):IF I<>1 AND I<>2 AND I<>3 THEN SOUND 100,2:GOTO 191
  95. 194  IF I=2 THEN 199
  96. 195  IF I=3 THEN 202
  97. 196  LOCATE 21,23:COLOR 31,0:PRINT"Enter Artist Name====>":RW=21:CL=47:LN=19:T=178:GOSUB 385:IF RIGHT$(NTRY$,1)=CHR$(27) OR NTRY$="" THEN 189
  98. 197  LNTH=LEN(NTRY$):FOR L=2 TO TNUM*2+1:GET #1,L:IF LEFT$(T$(1),LNTH)=NTRY$ THEN NUM=L\2:SOUND 1500,5:GOSUB 205:L=L+1
  99. 198  SOUND 20000,0.1:NEXT L:GOTO 189
  100. 199  LOCATE 21,23:COLOR 31,0:PRINT"Enter Name of Title==>":RW=21:CL=47:LN=21:T=178:GOSUB 385:IF RIGHT$(NTRY$,1)=CHR$(27) OR NTRY$="" THEN 189
  101. 200  LNTH=LEN(NTRY$):FOR L=2 TO TNUM*2+1:GET #1,L:IF LEFT$(T$(2),LNTH)=NTRY$ THEN NUM=L\2:SOUND 1500,5:GOSUB 205:L=L+1
  102. 201  SOUND 20000,0.1:NEXT L:GOTO 189
  103. 202  LOCATE 21,18:COLOR 31,0:PRINT"Enter Selection Name=>":RW=21:CL=42:LN=30:T=178:GOSUB 385:IF RIGHT$(NTRY$,1)=CHR$(27) OR NTRY$="" THEN 189
  104. 203  LNTH=LEN(NTRY$):FOR L=2 TO TNUM*2+1:GET #1,L:FOR Q=3 TO 16:IF LEFT$(T$(Q),LNTH)=NTRY$ THEN NUM=L\2:SOUND 1500,5:GOSUB 205:L=L+1
  105. 204  NEXT Q:SOUND 15000,0.1:NEXT L:GOTO 189
  106. 205  CLS:COLOR 0,7:LOCATE 25,7:PRINT"C A S M A N  Cassette Tape Management System:";:COLOR 9,0:LOCATE 25,53:PRINT"(2) Tape/Selection Search";:COLOR 10,0,0:COLOR 7,0:LOCATE 2,29:PRINT"Displaying Tape #";NUM:GOSUB 441
  107. 206  LOCATE 4,20:COLOR 31,0:PRINT"Press C to Continue Search; ESC to Exit";
  108. 207  I$=INKEY$:IF I$="" THEN 207
  109. 208  IF I$=CHR$(27) THEN RETURN 189
  110. 209  IF I$<>"C" AND I$<>"c" THEN SOUND 100,2:GOTO 207
  111. 210  RETURN
  112. 211  CLS:COLOR 0,7:LOCATE 25,7:PRINT"C A S M A N  Cassette Tape Management System:";:COLOR 9,0:LOCATE 25,53:PRINT"(2) Tape/Selection Search";:COLOR 10,0,0
  113. 212  CLS:COLOR 0,7:LOCATE 25,7:PRINT"C A S M A N  Cassette Tape Management System:";:COLOR 9,0:LOCATE 25,53:PRINT"(3) New Tape Entry";:COLOR 10,0,0:AART$="":BART$="":ATIT$="":BTIT$="":FOR L=1 TO 14:ASNG$(L)="":BSNG$(L)="":NEXT
  114. 213  NUM=TNUM+1:COLOR 7,0:LOCATE 2,30:PRINT"Entering Tape #";NUM:LOCATE 5,17:COLOR 15,0:PRINT"Side A";:LOCATE 5,57:COLOR 7,0:PRINT"Side B";:LOCATE 6,1:PRINT"THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN<0xCB!>THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN"
  115. 214  B=0:FOR L=7 TO 24:LOCATE L,40:PRINT"OPEN";:NEXT:
  116. 215  COLOR 31,0:LOCATE 8,3+B:PRINT"ENTER ARTIST==>";:COLOR 7,0:RW=8:CL=19+B:LN=17:T=176:GOSUB 385:IF RIGHT$(NTRY$,1)<>CHR$(27) THEN 219 ELSE IF B=40 THEN 234
  117. 216  LOCATE 8,3:PRINT SPACE$(33);:LOCATE 8,9:COLOR 31,0:PRINT"  Press X to Exit   ";
  118. 217  J$=INKEY$:IF J$="" THEN 217
  119. 218  IF J$="X" OR J$="x" THEN NUM=NUM-1:GOTO 118 ELSE LOCATE 8,11:PRINT SPACE$(16):GOTO 215
  120. 219  IF B=40 THEN BART$=NTRY$ ELSE AART$=NTRY$
  121. 220  COLOR 7,0:LOCATE 8,3+B:PRINT"ENTER ARTIST==>";:COLOR 31,0:LOCATE 10,3+B:PRINT"ENTER TITLE===>";:COLOR 7,0:RW=10:CL=19+B:LN=21:T=176:GOSUB 385:IF RIGHT$(NTRY$,1)=CHR$(27) THEN CHECK2(B)=1:GOTO 223
  122. 221  IF B=40 THEN BTIT$=NTRY$ ELSE ATIT$=NTRY$
  123. 222  COLOR 15,0:LOCATE 8,3+B:PRINT SPACE$(35);:LOCATE 10,3+B:PRINT SPACE$(37)
  124. 223  IF B<>40 GOTO 225
  125. 224  COLOR 1,0:LOCATE 7,(49-(LEN(BART$))\2):PRINT BART$;:LOCATE 7,(70-(LEN(BTIT$))\2):PRINT BTIT$;:GOTO 226
  126. 225  COLOR 1,0:LOCATE 7,(9-(LEN(AART$))\2):PRINT AART$;:LOCATE 7,(29-(LEN(ATIT$))\2):PRINT ATIT$;
  127. 226  IF CHECK2(B)=1 THEN LOCATE 10,3+B:COLOR 7,0:PRINT SPACE$(37);:GOTO 234
  128. 227  COLOR 7,0:FOR L=11 TO 24:LOCATE L,2+B:PRINT USING"##";L-10;:PRINT".";:NEXT:CHECK2(B)=1:'
  129. 228  COLOR 31,0:LOCATE 8,12+B:PRINT"ENTER SELECTIONS";:COLOR 7,0:LOCATE 9,8+B:PRINT"Press     to Stop Entry";:COLOR 16,7:LOCATE 9,14+B:PRINT"ESC";:COLOR 15,0:FOR L=1 TO 14
  130. 229  LOCATE 9+L,6+B:PRINT" ";:COLOR 31,0:LOCATE 10+L,6+B:PRINT CHR$(16);:COLOR 7,0:RW=10+L:CL=7+B:LN=30:T=177:GOSUB 385:IF (RIGHT$(NTRY$,1))=CHR$(27) THEN LOCATE L+10,6+B:PRINT SPACE$(32);:GOTO 233
  131. 230  IF B=40 THEN BSNG$(L)=NTRY$ ELSE ASNG$(L)=NTRY$
  132. 231  IF LEN(NTRY$)<>0 THEN CHECK2(B)=0:
  133. 232  NEXT
  134. 233  LOCATE L+9,6+B:PRINT" ";:LOCATE 24,6+B:PRINT" ";:IF L=1 THEN CHECK2(B)=1
  135. 234  COLOR 31,0:LOCATE 8,1+B:PRINT SPACE$(39);:LOCATE 10,16+B:PRINT SPACE$(12);:LOCATE 8,9+B:PRINT"Is this correct? (Y/N)";:SOUND 1500,0.1
  136. 235  LOCATE 9,1+B:PRINT SPACE$(39);:LOCATE RW,6+B:PRINT" ";
  137. 236  I$=INKEY$:IF I$="" GOTO 236
  138. 237  IF I$<>"Y" AND I$<>"y" THEN 241
  139. 238  LOCATE 8,9+B:PRINT SPACE$(25):IF CHECK1=1 THEN 295
  140. 239  IF B=40 THEN LOCATE 9,49:PRINT SPACE$(25):LOCATE 5,57:COLOR 7,0:PRINT"Side B";:GOSUB 438:GOTO 118:
  141. 240  B=40:LOCATE 5,17:COLOR 7,0:PRINT"Side A";:LOCATE 5,57:COLOR 31,0:PRINT"Side B";:COLOR 15,0:LOCATE 5,57:PRINT"Side B";:GOTO 215
  142. 241  IF ASC(I$)=27 THEN LOCATE 8,9+B:COLOR 31,0:PRINT"  Press X to exit     ";ELSE GOTO 244
  143. 242  J$=INKEY$:IF J$="" THEN 242
  144. 243  IF J$="x" OR J$="X" THEN NUM=0:GOTO 118 ELSE 234
  145. 244  IF I$<>"N" AND I$<>"n" THEN SOUND 100,2:GOTO 236
  146. 245  COLOR 15,0:LOCATE 8,6+B:PRINT"What would you like to change?";:COLOR 7,0:LOCATE 9,1+B:PRINT"Enter   (Artist),   (Title),or   (Song)";:COLOR 16,7:LOCATE 9,7+B:PRINT"A":LOCATE 9,19+B:PRINT"T":LOCATE 9,32+B:PRINT"S":COLOR 7,0
  147. 246  I$=INKEY$:IF I$="" GOTO 246
  148. 247  IF I$=CHR$(13) OR I$=CHR$(27) THEN LOCATE 8,6+B:PRINT SPACE$(30);:LOCATE 9,1+B:PRINT SPACE$(39);:GOTO 234
  149. 248  IF I$="A" OR I$="a" THEN LOCATE 8,6+B:PRINT SPACE$(30);:LOCATE 9,1+B:PRINT SPACE$(39);:GOTO 252
  150. 249  IF I$="T" OR I$="t" THEN LOCATE 8,6+B:PRINT SPACE$(30);:LOCATE 9,1+B:PRINT SPACE$(39);:GOTO 259
  151. 250  IF I$="S" OR I$="s" THEN LOCATE 8,6+B:PRINT SPACE$(30);:LOCATE 9,1+B:PRINT SPACE$(39);:IF CHECK2(B)=1 THEN CHECK2(B)=0:GOTO 227 ELSE 266
  152. 251  SOUND 100,2:GOTO 246
  153. 252  COLOR 31,0:LOCATE 8,3+B:PRINT"ENTER ARTIST==>";:COLOR 7,0:'
  154. 253  IF B=40 THEN TAIL$=BART$ ELSE TAIL$=AART$
  155. 254  RW=8:CL=19+B:LN=17:T=176:GOSUB 385:IF RIGHT$(NTRY$,1)=CHR$(27) THEN 234
  156. 255  IF B=40 THEN BART$=NTRY$ ELSE AART$=NTRY$
  157. 256  IF B<>40 GOTO 258
  158. 257  LOCATE 7,41:PRINT SPACE$(18):COLOR 1,0:LOCATE 7,(49-(LEN(BART$))\2):PRINT BART$;:GOTO 234
  159. 258  LOCATE 7,1:PRINT SPACE$(18):COLOR 1,0:LOCATE 7,(9-(LEN(AART$))\2):PRINT AART$;:GOTO 234
  160. 259  COLOR 31,0:LOCATE 8,3+B:PRINT"ENTER TITLE===>";:COLOR 7,0:'
  161. 260  IF B=40 THEN TAIL$=BTIT$ ELSE TAIL$=ATIT$
  162. 261  RW=8:CL=19+B:LN=21:T=176:GOSUB 385:IF RIGHT$(NTRY$,1)=CHR$(27) THEN 234
  163. 262  IF B=40 THEN BTIT$=NTRY$ ELSE ATIT$=NTRY$
  164. 263  IF B<>40 GOTO 265
  165. 264  LOCATE 7,60:PRINT SPACE$(21);:COLOR 1,0:LOCATE 7,(70-(LEN(BTIT$))\2):PRINT BTIT$;:GOTO 234
  166. 265  LOCATE 7,19:PRINT SPACE$(21);:COLOR 1,0:LOCATE 7,(29-(LEN(ATIT$))\2):PRINT ATIT$;:GOTO 234
  167. 266  KEY(11) ON:KEY(14) ON:ON KEY(11) GOSUB 430:ON KEY(14) GOSUB 434:'
  168. 267  RW=11:LOCATE RW,6+B:COLOR 31,0:PRINT CHR$(16);:COLOR 7,0
  169. 268  COLOR 15,0:LOCATE 8,12+B:PRINT"Which selection?";:COLOR 7,0:LOCATE 9,2+B:PRINT"Use   and   to select,    to correct,";:LOCATE 10,20+B:PRINT"to end.";
  170. 269  LOCATE 9,6+B:COLOR 16,7:PRINT CHR$(24);:LOCATE 9,12+B:PRINT CHR$(25);:LOCATE 9,25+B:PRINT CHR$(17);CHR$(217):LOCATE 10,16+B:PRINT"Esc";
  171. 270  J$=INKEY$:IF J$="" GOTO 270
  172. 271  IF ASC(J$)=27 THEN COLOR 15,0:KEY(11) OFF:KEY(14) OFF:GOTO 234
  173. 272  IF ASC(J$)=13 THEN COLOR 15,0:KEY(11) OFF:KEY(14) OFF ELSE SOUND 100,2:GOTO 270
  174. 273  LOCATE 8,12+B:PRINT SPACE$(20):LOCATE 9,2+B:PRINT SPACE$(37):COLOR 25,0:IF B=40 GOTO 275
  175. 274  TAIL$=ASNG$(RW-10):WHILE RIGHT$(TAIL$,1)=" ":TAIL$=LEFT$(TAIL$,LEN(TAIL$)-1):WEND:LOCATE 8,(20-(LEN(TAIL$))\2):PRINT TAIL$;:GOTO 276
  176. 275  TAIL$=BSNG$(RW-10):WHILE RIGHT$(TAIL$,1)=" ":TAIL$=LEFT$(TAIL$,LEN(TAIL$)-1):WEND:LOCATE 8,(20-(LEN(TAIL$))\2):PRINT TAIL$;
  177. 276  LOCATE 9,9+B:COLOR 15,0:PRINT"Enter correct selection";:CL=7+B:LN=30:T=178:GOSUB 385:IF (RIGHT$(NTRY$,1))=CHR$(27) THEN LOCATE RW,6+B:PRINT SPACE$(32):GOTO 278
  178. 277  IF B=40 THEN BSNG$(RW-10)=NTRY$ ELSE ASNG$(RW-10)=NTRY$
  179. 278  IF B=40 THEN LOCATE RW,46:COLOR 7,0:PRINT" "+BSNG$(RW-10);ELSE LOCATE RW,6:COLOR 7,0:PRINT" "+ASNG$(RW-10);
  180. 279  LOCATE 9,1+B:PRINT SPACE$(39):LOCATE 8,1+B:PRINT SPACE$(38);:GOSUB 434:KEY(11) ON:KEY(14) ON:GOTO 268:END
  181. 280  CLS:COLOR 0,7:LOCATE 5,7:PRINT"C A S M A N  Cassette Tape Management System:";:COLOR 9,0:LOCATE 5,53:PRINT"(4) Modify Record";:COLOR 10,0,0:LOCATE 9,28:PRINT"1. Alter a Tape Record";
  182. 281  LOCATE 12,28:PRINT"2. Delete a Tape Record";:LOCATE 16,34:PRINT"Select (1-2)";:LOCATE 25,31:PRINT"Press ESC to exit";
  183. 282  J$=INKEY$:IF J$="" GOTO 282
  184. 283  IF J$=CHR$(27) THEN 118
  185. 284  I=VAL(J$):IF I<>1 AND I<>2 THEN SOUND 100,2:GOTO 282
  186. 285  LOCATE 18,28:COLOR 31,0:PRINT"Enter Tape Number====>":RW=18:CL=51:LN=3:T=95:GOSUB 385:NUM=VAL(NTRY$):LOCATE 18,28:COLOR 7,0:PRINT"Enter Tape Number====>":IF NTRY$=CHR$(27) THEN NUM=0:GOTO 280
  187. 286  IF NUM>TNUM OR NUM=0 THEN LOCATE 20,27:COLOR 16,7:PRINT"Invalid Number, Reenter...";:COLOR 10:SOUND 100,9:FOR L=1 TO 1500:NEXT:LOCATE 20,27:PRINT"                          ";:SOUND 1500,0.1:GOTO 285
  188. 287  IF I=2 GOTO 302
  189. 288  CLS:COLOR 0,7:LOCATE 25,7:PRINT"C A S M A N  Cassette Tape Management System:";:COLOR 9,0:LOCATE 25,53:PRINT"(4) Modify Record";:COLOR 10,0,0:COLOR 7,0:LOCATE 2,30:PRINT"Modifying Tape #";NUM:CHECK1=1:GOSUB 441
  190. 289  COLOR 15,0:LOCATE 4,25:PRINT"Side A or B? (Press ESC to Exit)";:SOUND 1500,0.1
  191. 290  I$=INKEY$:IF I$="" GOTO 290
  192. 291  IF I$=CHR$(27) THEN CHECK1=0:GOTO 280
  193. 292  IF I$="a" OR I$="A" THEN B=0:LOCATE 4,25:PRINT SPACE$(33);:LOCATE 5,17:COLOR 15,0:PRINT"Side A";:GOTO 245
  194. 293  IF I$="b" OR I$="B" THEN B=40:LOCATE 4,25:PRINT SPACE$(33);:LOCATE 5,57:COLOR 15,0:PRINT"Side B";:GOTO 245
  195. 294  SOUND 100,2:GOTO 290
  196. 295  IF B=40 GOTO 301
  197. 296  LOCATE 4,28:PRINT"Is Side B Correct? (Y/N)";
  198. 297  I$=INKEY$:IF I$="" THEN 297
  199. 298  IF I$="Y" OR I$="y" THEN 301
  200. 299  IF I$<>"N" AND I$<>"n" THEN SOUND 100,2:GOTO 297
  201. 300  B=40:LOCATE 4,28:PRINT SPACE$(26);:LOCATE 5,17:COLOR 7,0:PRINT"Side A";:LOCATE 5,57:COLOR 15,0:PRINT"Side B";:GOTO 245
  202. 301  GOSUB 438:CHECK1=0:GOTO 118
  203. 302  CLS:COLOR 0,7:LOCATE 25,7:PRINT"C A S M A N  Cassette Tape Management System:";:COLOR 9,0:LOCATE 25,53:PRINT"(4) Modify Record";:COLOR 10,0,0:COLOR 7,0:LOCATE 2,30:PRINT"Deleting Tape #";NUM:GOSUB 441
  204. 303  LOCATE 4,22:COLOR 31,0:PRINT"Press D to Delete Record; ESC to Exit";
  205. 304  I$=INKEY$:IF I$="" GOTO 304
  206. 305  IF I$=CHR$(27) THEN 118
  207. 306  IF I$<>"D" AND I$<>"d" THEN SOUND 100,2:GOTO 304
  208. 307  TNUM=TNUM-1:FOR L=NUM*2 TO TNUM*2+1:GET #1,L+2:PUT #1,L:SOUND 20000,0.1:NEXT L:SOUND 1500,0.1:CLS:LOCATE 12,33:PRINT"RECORD DELETED";:LOCATE 14,26:COLOR 7,0:PRINT"Press Any Key to Continue...";
  209. 308  I$=INKEY$:IF I$="" THEN 308 ELSE 118
  210. 309  COLOR 0,0:CLS:COLOR 0,7:LOCATE 5,7:PRINT"C A S M A N  Cassette Tape Management System:";:COLOR 9,0:LOCATE 5,53:PRINT"(5) Print Tape Directory";:COLOR 10,0,0:LOCATE 9,28:PRINT"1. Print Title/Artist List";
  211. 310  LOCATE 12,28:PRINT"2. Print Entire List ";:LOCATE 13,37:PRINT"(including songs)";:LOCATE 16,34:PRINT"Select (1-2)";:LOCATE 25,31:PRINT"Press ESC to exit";
  212. 311  J$=INKEY$:IF J$="" GOTO 311
  213. 312  IF J$=CHR$(27) THEN 118
  214. 313  I=VAL(J$):IF I<>1 AND I<>2 THEN SOUND 100,2:GOTO 311
  215. 314  COLOR 7,0:CLS:LOCATE 12,25:PRINT"Advance Paper to Top of Form":COLOR 0,7:LOCATE 25,7:PRINT"C A S M A N  Cassette Tape Management System:";:COLOR 9,0:LOCATE 25,53:PRINT"(5) Print Tape Directory";:COLOR 10,0,0
  216. 315  LOCATE 13,26:PRINT"Press P to Begin Printing."
  217. 316  I$=INKEY$:IF I$="" THEN 316
  218. 317  IF I$=CHR$(27) THEN 309
  219. 318  IF I$<>"P" AND I$<>"p" THEN SOUND 100,2:GOTO 316
  220. 319  LOCATE 12,25:PRINT"   Printing in Progress...  ":LOCATE 13,26:PRINT"       Please Wait...     "
  221. 320  LPRINT:LPRINT CHR$(27)"G";CHR$(14);"    C A S M A N";CHR$(20);CHR$(27)"S" CHR$(0);"TM";CHR$(27)"T";CHR$(27)"E";"             ";FILE$;CHR$(27)"F";"     TAPE LIST":LPRINT CHR$(27)"@";CHR$(27)"N" CHR$(4);:IF I=1 THEN 328
  222. 321  LPRINT:FOR L=2 TO TNUM*2+1 STEP 2:GET #1,L:IF T$(1)=SPACE$(17) THEN 324
  223. 322  LPRINT CHR$(27)"E";CHR$(27)"-" CHR$(1):LPRINT USING"_Tape ###";L\2;:LPRINT"   Side A:      ";T$(1);"    ";T$(2);"         _";CHR$(27)"F";CHR$(27)"@";:FOR M=3 TO 16 STEP 2:IF T$(M)=SPACE$(30) THEN 324
  224. 323  LPRINT T$(M);TAB(41);T$(M+1):NEXT M:LPRINT
  225. 324  GET #1,L+1:IF T$(1)=SPACE$(17) THEN 327
  226. 325  LPRINT CHR$(27)"E";CHR$(27)"-" CHR$(1):LPRINT USING"_Tape ###";L\2;:LPRINT"   Side B:      ";T$(1);"    ";T$(2);"         _";CHR$(27)"F";CHR$(27)"@";:FOR M=3 TO 16 STEP 2:IF T$(M)=SPACE$(30) THEN 327
  227. 326  LPRINT T$(M);TAB(41);T$(M+1):NEXT M:LPRINT
  228. 327  NEXT L:LPRINT CHR$(7):GOTO 118
  229. 328  '
  230. 329  LPRINT CHR$(27)"E";CHR$(27)"G";"                SIDE A                                SIDE B                  ";
  231. 330  LPRINT CHR$(27)"-" CHR$(1);"No.   Artist           Title                Artist          Title             _";CHR$(27)"F";CHR$(27)"H";CHR$(27)"-" CHR$(0);:OPEN"LPT1:" AS #2:WIDTH #2,132:FOR L=2 TO TNUM*2+1 STEP 2
  232. 331  IF L\118<>L/118 THEN 334
  233. 332  LPRINT:LPRINT:LPRINT CHR$(27)"E";CHR$(27)"G";"                SIDE A                                SIDE B                  ";
  234. 333  LPRINT CHR$(27)"-" CHR$(1);"No.   Artist           Title                Artist          Title             _";CHR$(27)"F";CHR$(27)"H";CHR$(27)"-" CHR$(0);
  235. 334  GET #1,L:PRINT #2,TAB(1);:PRINT #2,USING"**#";L\2;:PRINT #2,CHR$(27)"E";" ";T$(1);CHR$(27)"F";T$(2);CHR$(27)"E";:GET #1,L+1:PRINT #2,T$(1);CHR$(27)"F";T$(2);:NEXT L:LPRINT CHR$(7):GOTO 118:END
  236. 335  CLS:COLOR 0,7:LOCATE 1,7:PRINT"C A S M A N  Cassette Tape Management System:";:COLOR 9,0:LOCATE 1,53:PRINT"(6) Print Cassette Cover";
  237. 336  PLC=1:TALLY=1:COLOR 10,0,0:LOCATE 25,31:PRINT"Press ESC to Exit";:LOCATE 2,1
  238. 337  PRINT" Enter the numbers of the tapes to be printed.  You must use three digits for    each number, i.e., 1=001.  You may use a dash between 2 numbers for consecutive series.  Commas must be inserted between number sets.  DO NOT LEAVE ANY SPACES."
  239. 338  RW=7:CL=10:T=95:LN=60:GOSUB 385:IF RIGHT$(NTRY$,1)=CHR$(27) OR NTRY$="" THEN 118
  240. 339  L=0:FOR L=1 TO LEN(NTRY$):Q=VAL(LEFT$(NTRY$,L)):Q1=ASC(LEFT$(NTRY$,L))
  241. 340  IF Q=0 AND (Q1<>44 AND Q1<>45 AND Q1<>48) THEN LOCATE 9,25:COLOR 15,0:PRINT"Invalid Character Entered, Redo.";:SOUND 100,5:FOR M=1 TO 1500:NEXT:SOUND 1500,1:LOCATE 9,25:PRINT SPACE$(32):TAIL$=NTRY$:GOTO 336
  242. 341  NEXT
  243. 342  PUNCT$=MID$(NTRY$,PLC+3,1):IF PUNCT$="," THEN PNUM(TALLY)=VAL(MID$(NTRY$,PLC,3)):TALLY=TALLY+1:PLC=PLC+4:GOTO 342
  244. 343  IF PUNCT$="-" THEN FOR L=VAL(MID$(NTRY$,PLC,3)) TO VAL(MID$(NTRY$,PLC+4,3)):PNUM(TALLY)=L:TALLY=TALLY+1:NEXT L:PLC=PLC+8:GOTO 342
  245. 344  PNUM(TALLY)=VAL(MID$(NTRY$,PLC,3)):IF PNUM(TALLY)=0 THEN PTNUM=TALLY-1:ELSE PTNUM=TALLY
  246. 345  LOCATE 10,30:COLOR 15,0:PRINT"Tapes to be Printed:":PRINT:COLOR 7,0:FOR L=1 TO PTNUM:IF PNUM(L)>TNUM THEN PTNUM=PTNUM-1:GOTO 347
  247. 346  PRINT USING"####";PNUM(L);
  248. 347  NEXT L:IF PTNUM=0 THEN LOCATE 10,27:COLOR 15,0:PRINT"Illegal Entry...try again";:SOUND 100,4:FOR X=1 TO 1500:NEXT:TAIL$=NTRY$:GOTO 335
  249. 348  LOCATE 11,29:COLOR 31,0:PRINT"Is this Correct? (Y/N)";
  250. 349  I$=INKEY$:IF I$="" THEN 349
  251. 350  IF I$="N" OR I$="n" OR I$=CHR$(27) THEN TAIL$=NTRY$:GOTO 335
  252. 351  IF I$="y" OR I$="Y" THEN 354
  253. 352  IF I$=CHR$(27) THEN 349
  254. 353  SOUND 100,2:GOTO 349
  255. 354  CLS:COLOR 0,7:LOCATE 1,7:PRINT"C A S M A N  Cassette Tape Management System:";:COLOR 9,0:LOCATE 1,53:PRINT"(6) Print Cassette Cover";:COLOR 10,0,0:LOCATE 25,31:PRINT"Press ESC to Exit";:LOCATE 3,1
  256. 355  PRINT"  You are allowed 5 message lines to appear at the bottom of the reverse side   of the cassette case.  At 30 characters per line, these lines are usually used  for name, address, phone, etc. Below are the lines already in your file, if any."
  257. 356  COLOR 9,0:LOCATE 7,19:PRINT"NOTE: All lines are automatically centered.":FOR L=1 TO 5:COLOR 7,0:LOCATE L+10,15:PRINT"Line #";L;" ";:COLOR 10,0:PRINT MESSAGE$(L);:NEXT L
  258. 357  COLOR 31,0:LOCATE 17,30:PRINT"Are these OK? (Y/N)";
  259. 358  I$=INKEY$:IF I$="" THEN 358 ELSE IF I$=CHR$(27) THEN CLS:GOTO 345
  260. 359  IF I$="y" OR I$="Y" THEN 366
  261. 360  IF I$<>"n" AND I$<>"N" THEN SOUND 100,2:GOTO 358
  262. 361  LOCATE 17,30:PRINT SPACE$(21);:FOR L=1 TO 5:COLOR 10,0:LOCATE L+17,15:PRINT"Line #";L;:TAIL$=MESSAGE$(L):RW=L+17:CL=24:T=254:LN=30:GOSUB 385:IF RIGHT$(NTRY$,1)=CHR$(27) THEN CLS:NTRY$="":SOUND 1500,2:GOTO 345
  263. 362  MESSAGE$(L)=NTRY$:NEXT L:COLOR 31,0:LOCATE 23,29:PRINT"Is this correct? (Y/N)";
  264. 363  I$=INKEY$:IF I$="" THEN 363 ELSE IF I$=CHR$(27) THEN CLS:NTRY$="":GOTO 345
  265. 364  IF I$="n" OR I$="N" THEN 354
  266. 365  IF I$<>"y" AND I$<>"Y" THEN SOUND 100,2:GOTO 363
  267. 366  COLOR 7,0:CLS:LOCATE 12,25:PRINT"Advance Paper to Top of Form":COLOR 0,7:LOCATE 25,7:PRINT"C A S M A N  Cassette Tape Management System:";:COLOR 9,0:LOCATE 25,53:PRINT"(6) Print Cassette Cover";:COLOR 10,0,0
  268. 367  LOCATE 13,26:PRINT"Press P to Begin Printing."
  269. 368  I$=INKEY$:IF I$="" THEN 368
  270. 369  IF I$=CHR$(27) THEN 354
  271. 370  IF I$<>"P" AND I$<>"p" THEN SOUND 100,2:GOTO 368
  272. 371  LOCATE 12,25:PRINT"   Printing in Progress...  ":LOCATE 13,26:PRINT"       Please Wait...     ":FOR Q=1 TO 5
  273. 372  IF RIGHT$(MESSAGE$(Q),1)=" " THEN MESSAGE$(Q)=LEFT$(MESSAGE$(Q),LEN(MESSAGE$(Q))-1):GOTO 372
  274. 373  NEXT:FOR L=1 TO PTNUM:M=PNUM(L):IF M>TNUM THEN LPRINT CHR$(27);:GOTO 378
  275. 374  GET #1,M*2:AART$=T$(1):ATIT$=T$(2):FOR K=3 TO 16:ASNG$(K-2)=T$(K):NEXT:GET#1,M*2+1:BART$=T$(1):BTIT$=T$(2):FOR K=3 TO 16:BSNG$(K-2)=T$(K):NEXT:LPRINT CHR$(27)"@";::LPRINT CHR$(27)"2";CHR$(15)::FOR Q=1 TO 5:LPRINT:NEXT:
  276. 375  LPRINT"___________________________________________________________________":FOR N=1 TO 14:LPRINT" ";ASNG$(N);TAB(36);BSNG$(N):NEXT N:LPRINT CHR$(18);CHR$(14);CHR$(27)"E";:
  277. 376  LPRINT TAB(5);"A";CHR$(27)"F";CHR$(20);CHR$(15);"          Tape #:";CHR$(18);M;CHR$(27)"E";CHR$(14);TAB(30);"B":LPRINT CHR$(27)"1"::LPRINT AART$;CHR$(27)"4";TAB(20);ATIT$:LPRINT CHR$(27)"5":LPRINT BART$;CHR$(27)"4";TAB(20);BTIT$
  278. 377  LPRINT CHR$(27)"F";CHR$(27)"5";CHR$(27)"S" CHR$(0);CHR$(27)"3" CHR$(22)::LPRINT:FOR Q=1 TO 5:LPRINT TAB(19-LEN(MESSAGE$(Q))\2);MESSAGE$(Q):NEXT Q:LPRINT"---------------------------------------"
  279. 378  FOR Q=1 TO 6:LPRINT:NEXT Q:NEXT L:'
  280. 379  LPRINT CHR$(7):GOTO 118
  281. 380  '
  282. 381  RESTART=1
  283. 382  '
  284. 383  COLOR 25,0:CLS:COLOR 15,0:LOCATE 12,29:PRINT"UPDATING FILE: ";FILE$:GET #1,1:LSET T$(1)=MKI$(TNUM):FOR L=3 TO 7:LSET T$(L)=MESSAGE$(L-2):NEXT:PUT #1,1:CLOSE #1:IF RESTART=1 THEN RESTART=0:GOTO 101
  285. 384  CLS:SYSTEM
  286. 385  '
  287. 386  DEF SEG=0:POKE &H41A,PEEK(&H41C):DEF SEG:POKE &H6A,0::WHILE RIGHT$(TAIL$,1)=CHR$(32):TAIL$=LEFT$(TAIL$,LEN(TAIL$)-1):WEND
  288. 387  COLOR 0,7:LOCATE RW,CL,1:PRINT TAIL$;:LOCATE RW,CL+LEN(TAIL$):COLOR 15,0:PRINT STRING$(LN-LEN(TAIL$),T);:LOCATE RW,CL,1,12,0:NTRY$=""
  289. 388  COLOR 7,0:I$=INKEY$:IF LEN(I$)=0 THEN 388 ELSE I%=ASC(I$)
  290. 389  IF I%=27 THEN NTRY$=NTRY$+CHR$(27):LOCATE,,0:TAIL$="":RETURN
  291. 390  IF I%=13 THEN PRINT SPACE$(LN-LEN(NTRY$));:LOCATE,,0:TAIL$="":RETURN
  292. 391  IF I%=8 THEN GOSUB 402:GOTO 388
  293. 392  IF LEN(I$)=2 AND RIGHT$(I$,1)="G" THEN GOSUB 424
  294. 393  IF LEN(I$)=2 AND RIGHT$(I$,1)="K" THEN GOSUB 405:
  295. 394  IF LEN(NTRY$)=LN THEN SOUND 2000,0.1:SOUND 3000,0.5:GOTO 388:
  296. 395  IF LEN(I$)=2 AND RIGHT$(I$,1)="M" THEN GOSUB 408:
  297. 396  IF LEN(I$)=2 AND RIGHT$(I$,1)="R" THEN GOSUB 411:
  298. 397  IF LEN(I$)=2 AND RIGHT$(I$,1)="S" THEN GOSUB 421:GOTO 388:
  299. 398  IF LEN(I$)=2 AND RIGHT$(I$,1)="O" THEN GOSUB 427:
  300. 399  IF I%>31 AND I%<127 THEN PRINT I$;:NTRY$=NTRY$+I$ ELSE SOUND 2000,0.1:SOUND 3000,0.5:GOTO 388
  301. 400  IF TAIL$<>"" THEN TAIL$=RIGHT$(TAIL$,LEN(TAIL$)-1)
  302. 401  GOTO 388
  303. 402  '
  304. 403  IF LEN(NTRY$)=0 THEN SOUND 2000,0.1:SOUND 3000,0.5:RETURN
  305. 404  COLOR 0,7:PRINT CHR$(29);TAIL$;:COLOR 15,0:PRINT CHR$(T);:NTRY$=LEFT$(NTRY$,LEN(NTRY$)-1):LOCATE RW,CL+LEN(NTRY$):RETURN
  306. 405  '
  307. 406  IF NTRY$="" THEN SOUND 2000,0.1:SOUND 3000,0.5:RETURN 388
  308. 407  TAIL$=RIGHT$(NTRY$,1)+TAIL$:NTRY$=LEFT$(NTRY$,LEN(NTRY$)-1):COLOR 0,7:PRINT CHR$(29);LEFT$(TAIL$,1);CHR$(29);:RETURN 388
  309. 408  '
  310. 409  IF TAIL$="" THEN SOUND 2000,0.1:SOUND 3000,0.5:RETURN 388
  311. 410  NTRY$=NTRY$+LEFT$(TAIL$,1):TAIL$=RIGHT$(TAIL$,LEN(TAIL$)-1):PRINT RIGHT$(NTRY$,1);:RETURN 388
  312. 411  '
  313. 412  IF INS=0 THEN INS=1 ELSE INS=0:RETURN 388
  314. 413  IF TAIL$="" THEN INS=0:SOUND 2000,0.1:SOUND 3000,0.5:RETURN 388
  315. 414  LOCATE RW,CL+LEN(NTRY$),1,1,12
  316. 415  I$=INKEY$:IF LEN(I$)=0 THEN 415 ELSE I%=ASC(I$)
  317. 416  IF I$=CHR$(8) THEN GOSUB 402:GOTO 415 ELSE IF LEN(I$)=2 AND RIGHT$(I$,1)="S" THEN GOSUB 421:IF (TAIL$)="" THEN LOCATE,,,13,0:SOUND 2000,0.1:SOUND 3000,0.5:RETURN 388 ELSE 415
  318. 417  IF LEN(I$)>1 OR I%<32 OR I%>126 THEN INS=0:LOCATE,,,13,0:SOUND 2000,0.1:SOUND 3000,0.5:RETURN 388
  319. 418  IF TAIL$="" THEN INS=0:LOCATE,,,13,0:SOUND 2000,0.1:SOUND 3000,0.5:RETURN 388
  320. 419  IF LEN(NTRY$)+LEN(TAIL$)<LN THEN NTRY$=NTRY$+I$:COLOR 7,0:PRINT I$;:COLOR 0,7:PRINT TAIL$;:LOCATE RW,CL+LEN(NTRY$):GOTO 415
  321. 420  NTRY$=NTRY$+I$:TAIL$=LEFT$(TAIL$,LEN(TAIL$)-1):COLOR 7,0:PRINT I$;:COLOR 0,7:PRINT TAIL$;:LOCATE RW,CL+LEN(NTRY$):GOTO 415
  322. 421  '
  323. 422  IF TAIL$="" THEN SOUND 2000,0.1:SOUND 3000,0.5:RETURN
  324. 423  TAIL$=RIGHT$(TAIL$,LEN(TAIL$)-1):COLOR 0,7:PRINT TAIL$;:COLOR 15,0:PRINT CHR$(T);:LOCATE RW,CL+LEN(NTRY$):RETURN
  325. 424  '
  326. 425  IF NTRY$="" THEN SOUND 2000,0.1:SOUND 3000,0.5:RETURN 388
  327. 426  TAIL$=NTRY$+TAIL$:NTRY$="":LOCATE RW,CL:COLOR 0,7:PRINT TAIL$;:LOCATE RW,CL:RETURN 388
  328. 427  '
  329. 428  IF TAIL$="" THEN SOUND 2000,0.1:SOUND 3000,0.5:RETURN 388
  330. 429  NTRY$=NTRY$+TAIL$:TAIL$="":LOCATE RW,CL:PRINT NTRY$;:RETURN 388
  331. 430  COLOR 15,0:SOUND 300,1:IF RW=11 THEN RW=24 ELSE RW=RW-1:'
  332. 431  IF RW=24 THEN LOCATE 11,6+B:PRINT" ";:LOCATE 24,6+B:PRINT CHR$(16);:GOTO 433
  333. 432  LOCATE RW+1,6+B:PRINT" ";:LOCATE RW,6+B:PRINT CHR$(16);
  334. 433  COLOR 7,0:RETURN
  335. 434  COLOR 15,0:SOUND 150,1:IF RW=24 THEN RW=11 ELSE RW=RW+1:'
  336. 435  IF RW=11 THEN LOCATE 24,6+B:PRINT" ";:LOCATE 11,6+B:PRINT CHR$(16):GOTO 437
  337. 436  LOCATE RW-1,6+B:PRINT" ";:LOCATE RW,6+B:PRINT CHR$(16);
  338. 437  COLOR 7,0:RETURN
  339. 438  '
  340. 439  IF NUM>TNUM THEN TNUM=NUM
  341. 440  LSET T$(1)=AART$:LSET T$(2)=ATIT$:FOR L=1 TO 14:LSET T$(L+2)=ASNG$(L):NEXT:PUT #1,NUM*2:LSET T$(1)=BART$:LSET T$(2)=BTIT$:FOR L=1 TO 14:LSET T$(L+2)=BSNG$(L):NEXT:PUT #1,NUM*2+1:RETURN
  342. 441  '
  343. 442  LOCATE 5,17:COLOR 7,0:PRINT"Side A";:LOCATE 5,57:PRINT"Side B";:LOCATE 6,1:PRINT"THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN<0xCB!>THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN";:FOR K=7 TO 24:LOCATE K,40:PRINT"OPEN";:NEXT:CHECK2(B)=1:GET #1,NUM*2
  344. 443  COLOR 1,0:AART$=T$(1):WHILE RIGHT$(AART$,1)=" ":AART$=LEFT$(AART$,LEN(AART$)-1):WEND:LOCATE 7,(9-LEN(AART$)/2):PRINT AART$
  345. 444  ATIT$=T$(2):WHILE RIGHT$(ATIT$,1)=" ":ATIT$=LEFT$(ATIT$,LEN(ATIT$)-1):WEND:LOCATE 7,(29-LEN(ATIT$)/2):PRINT ATIT$
  346. 445  COLOR 7,0:FOR K=11 TO 24:LOCATE K,2:PRINT USING"##";K-10;:PRINT".  ";T$(K-8);:ASNG$(K-10)=T$(K-8):IF ASNG$(K-10)<>SPACE$(30) THEN CHECK2(B)=0
  347. 446  NEXT:GET #1,NUM*2+1:COLOR 1,0:BART$=T$(1):WHILE RIGHT$(BART$,1)=" ":BART$=LEFT$(BART$,LEN(BART$)-1):WEND:LOCATE 7,(49-LEN(BART$)/2):PRINT BART$
  348. 447  BTIT$=T$(2):WHILE RIGHT$(BTIT$,1)=" ":BTIT$=LEFT$(BTIT$,LEN(BTIT$)-1):WEND:LOCATE 7,(69-LEN(BTIT$)/2):PRINT BTIT$
  349. 448  COLOR 7,0:FOR K=11 TO 24:LOCATE K,42:PRINT USING"##";K-10;:PRINT".  ";T$(K-8);:BSNG$(K-10)=T$(K-8):IF BSNG$(K-10)<>SPACE$(30) THEN CHECK2(B)=0
  350. 449  NEXT:RETURN
  351. 450  '
  352. 451  ON ERROR GOTO 452:DRIVE$="A:":KEY 15,CHR$(&H4)+CHR$(70):KEY 16,CHR$(&H4)+CHR$(55):KEY 17,CHR$(&H8)+CHR$(0):KEY(15) ON:KEY (16) ON:KEY (17) ON:FOR L=1 TO 10:KEY L,"":NEXT:GOTO 468
  353. 452  IF ERR=53 AND ERL=102 THEN RESUME 104
  354. 453  IF ERR=25 OR ERR=27 THEN QQ$=SPACE$(66) ELSE 455
  355. 454  LOCATE 19,10:COLOR 0,7:PRINT"PRINTER ERROR: Make Sure Printer is Ready to Print or Press Esc.";:SOUND 250,0.01:SOUND 50,1:I$=INKEY$:IF I$="" THEN LOCATE 19,10:COLOR 7:PRINT QQ$:RESUME ELSE IF I$=CHR$(27) THEN RESUME 118 ELSE RESUME
  356. 455  IF (ERR=52 OR ERR=53 OR ERR=67 OR ERR=76) AND ERL=115 THEN LOCATE 19,18:COLOR 0,7:PRINT"Invalid Filename or Drive Letter, Try Again...";:SOUND 250,0.04:SOUND 50,20:FOR L=1 TO 4000:NEXT:BEEP:RESUME 101
  357. 456  IF ERR=61 OR ERR=68 OR ERR=71 OR ERR=72 THEN QQ$="DISK ERROR:  Check Disk Drive Then Press a Key or Esc to Exit CASMAN"
  358. 457  IF ERR=68 OR ERR=71 OR ERR=72 THEN LOCATE 3,7:COLOR 0,7:PRINT QQ$:I$=INKEY$:IF I$="" THEN SOUND 41,1:SOUND 40,1:COLOR 15,0:LOCATE 3,7:PRINT QQ$:GOTO 457 ELSE IF I$=CHR$(27) THEN SYSTEM ELSE LOCATE 3,1:COLOR 15,0:PRINT SPACE$(78)
  359. 458  IF ERR=68 OR ERR=71 OR ERR=72 THEN IF ERL=102 THEN RESUME 102 ELSE RESUME ELSE
  360. 459  IF ERR=70 THEN QQ$="WRITE PROTECT ERROR:  Remove Tab From Disk and Press a Key or Esc."
  361. 460  IF ERR=7 THEN LOCATE 3,7:COLOR 0,7:PRINT QQ$:SOUND 44,5:I$=INKEY$:IF I$="" THEN COLOR 15,0:LOCATE 3,7:PRINT QQ$:GOTO 460 ELSE IF I$=CHR$(27) THEN 118 ELSE LOCATE 3,1:COLOR 15,0:PRINT SPACE$(78):RESUME
  362. 461  IF ERR=61 THEN QQ$="   Your Tape File disk is full.  By pressing any key, you will exit from CASMAN.You then should copy "+FILE$+".CAS to an empty, formatted disk, and restart C A S M A N using THAT file. Your last addition/change cannot be saved."
  363. 462  IF ERR=61 THEN BEEP:CLS:COLOR 16,7:LOCATE 3,34:PRINT"FILE ERROR:":COLOR 15,0:LOCATE 7,1:PRINT QQ$
  364. 463  IF ERR=61 THEN I$=INKEY$:IF I$="" THEN 463 ELSE SYSTEM
  365. 464  IF ERR=5 THEN QQ$="     You should have entered CASMAN through the batch file `CM' with BASICA 2.0+in drive B.  If you tried this, or do not have the batch file, press any key to  exit. Then enter `B:BASICA A:CASMAN /S:458'.   Use only BASICA 2.0+"
  366. 465  IF ERR=5 THEN BEEP:CLS:COLOR 16,7:LOCATE 3,33:PRINT"SYSTEM ERROR:":COLOR 15,0:LOCATE 7,1:PRINT QQ$
  367. 466  IF ERR=5 THEN I$=INKEY$:IF I$="" THEN 466 ELSE SYSTEM
  368. 467  COLOR 31,0:PRINT"ERROR #";ERR;"ON LINE";ERL:COLOR 15,0:PRINT "PLEASE Write the Author at  5509 Manorfield Rd., Rockville, MD  20853":FOR T=1 TO 3000:NEXT :SYSTEM
  369. 468  OPTION BASE 0:DIM T$(16),ASNG$(14),BSNG$(14),PNUM(300),MESSAGE$(5),CHECK2(40)
  370. 469  CLS:COLOR 0,7:FOR L=67 TO 19 STEP -2:LOCATE 24,L:PRINT "C A S M A NCSRLINCSRLIN";:NEXT
  371. 470  LOCATE 24,19:COLOR 0,7:PRINT "C A S M A NCSRLIN";:COLOR 7,0:FOR L=1 TO 22:PRINT :NEXT
  372. 471  LOCATE 1,9:PRINT"VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR       ";"        CALL";:LOCATE ,19:COLOR 0,7:PRINT"C A S M A N";:LOCATE ,33:COLOR 9,0:PRINT"Cas";:COLOR 15,0:PRINT"sette Tape";:LOCATE ,47:COLOR 9,0
  373. 472  PRINT"Man";:COLOR 15,0:PRINT"agement System";:LOCATE ,73:COLOR 7,0:PRINT"CALL       ";"        CALL";:LOCATE ,73:PRINT"CALL";:LOCATE 4,9:PRINT"CALLCASMAN is a user-supported product.  You are encouraged to use,CALL       ";"        CALL   duplicate, ";
  374. 473  PRINT"and share it with other users, provided that:    CALL       ";"        CALL";:LOCATE ,73:PRINT"CALL       ";"        CALL           <UNK! {00F9}> No fee of any kind is charged,                    CALL       ";"        CALL           <UNK! {00F9}> You do not alter the ";
  375. 474  PRINT"program in any way, and,     CALL       ";"        CALL           <UNK! {00F9}> This notice remains intact and unaltered.         CALL       ";"       ";:PRINT" CALL";:LOCATE ,73:PRINT"CALL";:LOCATE 11,7:PRINT"KEYTHENSTEPTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN";
  376. 475  PRINT"THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENSTEPTHENTHENCLOSE    ";"      OPEN If you find CASMAN useful, please send a donation ($15EQV suggested) OPEN    ";"      OPEN to the address below.  By becoming a registered user, you will be  OPEN    ";"      OPEN notified of a";
  377. 476  PRINT"ll updates and other products, and allow us to con-   OPEN    ";"      OPEN tinue releasing quality software.";:LOCATE ,76:PRINT"OPEN    ";"      OPEN";:LOCATE ,76:PRINT"OPEN    ";"      OPEN";:LOCATE ,50:PRINT"tm";:LOCATE ,76:PRINT"OPEN    ";"   ";
  378. 477  PRINT"   OPEN";:LOCATE ,32:PRINT"Rainy Day Software";:LOCATE ,76:PRINT"OPEN    ";"      OPEN";:LOCATE ,31:PRINT"5509 Manorfield Road";:LOCATE ,76:PRINT"OPEN    ";"      OPEN";:LOCATE ,31:PRINT"Rockville, MD  20853";:LOCATE ,76:PRINT"OPEN";:LOCATE 21,7
  379. 478  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD";:LOCATE 23,27:COLOR 31,0:PRINT"Press Any Key to Continue...";
  380. 479  COLOR 7,0:I$=INKEY$:IF I$="" THEN 479 ELSE RETURN
  381. 480  '
  382. 481  CLS:LOCATE,28:COLOR 0,7:PRINT"C A S M A N";:LOCATE,40:COLOR 9,0:PRINT"HELP SCREEN";:LOCATE,52:COLOR 1,0:PRINT"#1";:LOCATE 2,8:COLOR 7,0:PRINT"VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR       ";"       CALLFirst adjust th";
  383. 482  PRINT"e contrast control (upper right dial  WEND";:COLOR 15,0:PRINT"WEND";:COLOR 7,0:PRINT"WEND";:COLOR 15,0:PRINT"WEND";:COLOR 7,0:PRINT"WEND";:COLOR 15,0:PRINT"WEND";:COLOR 7,0:PRINT"WEND";:COLOR 15,0:PRINT"WEND";:COLOR 7,0:PRINT"WEND";:COLOR 15,0:PRINT"WEND";:COLOR 7,0
  384. 483  PRINT"WENDCALL       ";"       CALLon the IBM Monochrome Display) so that the blocks";:LOCATE,62:COLOR 15,0:PRINT"WEND";:COLOR 7,0:PRINT"WEND";:COLOR 15,0:PRINT"WEND";:COLOR 7,0:PRINT"WEND";:COLOR 15,0:PRINT"WEND";:COLOR 7,0:PRINT"WEND";:COLOR 15,0:PRINT"WEND";:COLOR 7,0
  385. 484  PRINT"WEND";:COLOR 15,0:PRINT"WEND";:COLOR 7,0:PRINT"WEND";:COLOR 15,0:PRINT"WEND";:COLOR 7,0:PRINT"CALL       ";"       CALLto the right are of contrasting brightness.          WEND";:COLOR 15,0:PRINT"WEND";:COLOR 7,0:PRINT"WEND";:COLOR 15,0:PRINT"WEND";:COLOR 7,0:PRINT"WEND";
  386. 485  COLOR 15,0:PRINT"WEND";:COLOR 7,0:PRINT"WEND";:COLOR 15,0:PRINT"WEND";:COLOR 7,0:PRINT"WEND";:COLOR 15,0:PRINT"WEND";:COLOR 7,0:PRINT"WENDCALL";:LOCATE 6,8:PRINT"CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'";:LOCATE 8,12:PRINT"CASMAN is a menu";
  387. 486  PRINT"-driven Cassette Tape Management System.    By simply";"following the prompts and instructions on the screen, you should have no trouble";"using CASMAN.   The";:LOCATE,22:COLOR 0,7:PRINT"Esc";:LOCATE,27:COLOR 7,0:PRINT"key can be used v";
  388. 487  PRINT"irtually anywhere to exit the current";"mode.   If, after pressing";:LOCATE,29:COLOR 0,7:PRINT"Esc";:COLOR 7,0:PRINT",  you are prompted";:LOCATE,52:COLOR 15,0:PRINT"Press `X' to Exit";:COLOR 7,0:PRINT", that means";"that by pressing";
  389. 488  LOCATE,19:COLOR 0,7:PRINT"X";:LOCATE,22:COLOR 7,0:PRINT"you will exit the current mode";:LOCATE,54:COLOR 1,0:PRINT"without";:LOCATE,63:COLOR 7,0:PRINT"saving  your  last";"change/addition to disk.";:LOCATE 15,38:COLOR 9,0:PRINT"EDITING";
  390. 489  LOCATE 16,11:COLOR 7,0:PRINT"Throughout CASMAN, any time you are asked to answer with more than one";"character, you will be provided with and input `Template'.  Below is an example:";:LOCATE 19,5:COLOR 31,0:PRINT"ENTER ARTIST====>";:LOCATE,23
  391. 490  COLOR 15,0:PRINT"WENDWENDWENDWENDWENDWENDWENDWENDWENDWENDWENDWEND";:LOCATE,38:COLOR 7,0:PRINT"Note that the Template is comprised of 12";:LOCATE 20,38:PRINT"blocks.  This means that you shall be al-";:LOCATE 21,5:PRINT"CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND' CLSSOUNDSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUND'   lowed to enter up to 12 cha";
  392. 491  PRINT"racters.   You  ";"         Prompt         Template     then press";:LOCATE,49:COLOR 0,7:PRINT CHR$(17);"SOUND'";:LOCATE,53:COLOR 7,0:PRINT"to end entry. Pressing";:LOCATE,76:COLOR 0,7:PRINT"Esc";:LOCATE 23,38:COLOR 7,0:PRINT"at any time w";
  393. 492  PRINT"ill abort the current entry.";
  394. 493  LOCATE 25,20:COLOR 31,0:PRINT"Press PgDn to Continue or Esc to Exit...";:LOCATE 25,26:COLOR 16,7:PRINT"PgDn";:LOCATE 25,46:PRINT"Esc";
  395. 494  COLOR 7,0:I$=INKEY$:IF I$="" THEN 494 ELSE IF I$=CHR$(27) THEN 118
  396. 495  IF LEN(I$)<>2 OR RIGHT$(I$,1)<>"Q" THEN SOUND 100,2:GOTO 493
  397. 496  CLS:LOCATE,28:COLOR 0,7:PRINT"C A S M A N";:LOCATE,40:COLOR 9,0:PRINT"HELP SCREEN";:LOCATE,52:COLOR 1,0:PRINT"#2";:LOCATE 3,5:COLOR 15,0:PRINT CHR$(16);:LOCATE,7:COLOR 7,0:PRINT"The Star Spangled Banner";:COLOR 15,0:PRINT"LINELINELINELINELINELINE";
  398. 497  LOCATE,39:COLOR 7,0:PRINT"If";:LOCATE,42:COLOR 0,7:PRINT CHR$(17);"SOUND'";:LOCATE,46:COLOR 7,0:PRINT"were pushed now, `The Star Spang-";:LOCATE 4,39:PRINT"led Banner' would be entered.  Whatever   ";"    ";CHR$(24);:LOCATE,7:PRINT"CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBSAVE";
  399. 498  PRINT"SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'        is in normal video is known as the `Active";"Prompt     Active Template";:LOCATE,39:PRINT"Template'.  Reverse video is `Inactive'.";:LOCATE 7,1:PRINT"THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN<0xCB!>THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN";
  400. 499  PRINT"THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN";:LOCATE,35:PRINT"OPEN   By using the arrow keys (";CHR$(27);",";CHR$(26);") you can move";:COLOR 15,0:PRINT"ENTER NAME==>";:LOCATE,15:COLOR 7,0:PRINT"Abraham";:COLOR 0,7:PRINT" Lincoln";:COLOR 15,0:PRINT"LINELINELINELINE";:LOCATE,35
  401. 500  COLOR 7,0:PRINT"OPEN   throughout the template to make correct-  ";"CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUND' CLSSOUNDSOUNDBSAVESOUNDSOUND'CLSSOUNDSOUNDBSAVESOUNDSOUNDSOUND'     OPEN   ions in you entry.";:LOCATE 11,1:PRINT"PromptSOUND'         CALL      CALL         OPEN";:LOCATE,40:COLOR 0,7:PRINT CHR$(27);:LOCATE,44:COLOR 7,0
  402. 501  PRINT"Moves the cursor back one space and";:LOCATE 12,1:COLOR 1,0:PRINT"Active   Template";:COLOR 7,0:PRINT"'      CALL         OPEN      shortens the Active Template by one.";:LOCATE 13,1:COLOR 1,0:PRINT"Inactive Template";:COLOR 7,0:PRINT"SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND' ";
  403. 502  PRINT"        OPEN";:LOCATE 14,35:PRINT"OPEN";:LOCATE,40:COLOR 0,7:PRINT CHR$(26);:LOCATE,44:COLOR 7,0:PRINT"Moves the cursor one space to the    ";"   (By pressing";:LOCATE,17:COLOR 0,7:PRINT CHR$(17);"SOUND'";:LOCATE,21:COLOR 7,0:PRINT"now, only   ";
  404. 503  PRINT"  OPEN      right and adds that character to the   ";"   `Abraham' would be entered.    OPEN      Active Template.  Works only if the    ";"   To enter  `Abraham Lincoln,    OPEN      Inactive Template is not empty.        ";"   you would first ha";
  405. 504  PRINT"ve to add    OPEN";:LOCATE 19,4:PRINT"` Lincoln'  to  the  Active    OPEN";:LOCATE,37:COLOR 0,7:PRINT"End";:LOCATE,44:COLOR 7,0:PRINT"Moves cursor to the end of entry and ";"   Template by using";:LOCATE,23:COLOR 0,7:PRINT"End";:LOCATE,28
  406. 505  COLOR 7,0:PRINT"or     OPEN      makes the entire entry Active.         ";"   pressing";:LOCATE,14:COLOR 0,7:PRINT CHR$(26);:LOCATE,16:COLOR 7,0:PRINT"several times.)    OPEN";:LOCATE 22,35:PRINT"OPEN";:LOCATE,37:COLOR 0,7:PRINT"Home";:LOCATE,44
  407. 506  COLOR 7,0:PRINT"Moves cursor to the beginning of ent-";:LOCATE,35:PRINT"OPEN      ry and makes the entire entry Inactive.";
  408. 507  LOCATE 25,20:COLOR 31,0:PRINT"Press PgDn to Continue or Esc to Exit...";:LOCATE 25,26:COLOR 16,7:PRINT"PgDn";:LOCATE 25,46:PRINT"Esc";
  409. 508  COLOR 7,0:I$=INKEY$:IF I$="" THEN 508 ELSE IF I$=CHR$(27) THEN 118
  410. 509  IF LEN(I$)<>2 OR RIGHT$(I$,1)<>"Q" THEN SOUND 100,2:GOTO 507
  411. 510  CLS:LOCATE,28:COLOR 0,7:PRINT"C A S M A N";:LOCATE,40:COLOR 9,0:PRINT"HELP SCREEN";:LOCATE,52:COLOR 1,0:PRINT"#3";:LOCATE 2,10:COLOR 7,0:PRINT"VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR";:LOCATE,45:PRINT"VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSPC(SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSPC(SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR";"         CALLOther Ed";
  412. 511  PRINT"iting Keys:CALL              CALL  CALL";:COLOR 31,0:PRINT CHR$(17);"SOUNDSOUND";:LOCATE,53:COLOR 7,0:PRINT"CALL  OPEN  CALL";:COLOR 0,7:PRINT"Num ";:COLOR 7,0:PRINT"CALL   OPEN  CALLScrollCALL CALL";:LOCATE,10:PRINT"CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'              CALL  CALL    CALL  OPEN  CALL";
  413. 512  COLOR 0,7:PRINT"Lock";:COLOR 7,0:PRINT"CALL   OPEN  CALLLock  CALL CALL";"Use";:LOCATE,5:COLOR 0,7:PRINT"Num Lock";:LOCATE,14:COLOR 7,0:PRINT"to switch between the numeric";:LOCATE,45:PRINT"ERLTHENTHENTHENTHENFNTHENTHENTHENTHENTHENTAB(THENTHENTHENTHENTHEN<0xCB!>THENTHENTHENTHENTHENTAB(THENTHENTHENTHENTHEN<0xCB!>THENTHENTHENTHENTHEN<0xB5!>";"keypad and editing keys.";
  414. 513  LOCATE,50:PRINT"CALL     OPEN7    OPEN8    OPEN9    OPEN     CALL";:LOCATE,50:PRINT"CALLSOUNDSOUNDSOUNDSOUNDSOUNDOPEN";:COLOR 31,0:PRINT"Home";:LOCATE,62:COLOR 7,0:PRINT"OPEN";:COLOR 31,0:PRINT CHR$(24);:LOCATE,68:COLOR 7,0:PRINT"OPENPgUp OPEN-    CALL";"Backspace (";:COLOR 15,0
  415. 514  PRINT CHR$(17);"SOUNDSOUND";:COLOR 7,0:PRINT"): Moves the cursor back one space,CALL";:COLOR 31,0:PRINT CHR$(17);"SOUNDSOUND'";:LOCATE,56:COLOR 7,0:PRINT"TOTHENTHENTHENTHENTHENTAB(THENTHENTHENTHENTHENTAB(THENTHENTHENTHENTHENTAB(THENTHENTHENTHENTHEN<0xB5!>";:LOCATE,18:PRINT"deleting the left character and CALLSOUNDSOUNDSOUNDSOUNDSOUNDOPEN4    OPEN5    OPEN6    OPEN     CALL";
  416. 515  LOCATE,18:PRINT"dragging to the right all re-   CALL     OPEN";:COLOR 31,0:PRINT CHR$(27);:LOCATE,62:COLOR 7,0:PRINT"OPEN     OPEN";:COLOR 31,0:PRINT CHR$(26);:LOCATE,74:COLOR 7,0:PRINT"OPEN     CALL";:LOCATE,18:PRINT"maining text.";:LOCATE,50:PRINT"PSETTHENTHENTHENTHENTHENTAB(";
  417. 516  PRINT"THENTHENTHENTHENTHENTAB(THENTHENTHENTHENTHENTAB(THENTHENTHENTHENTHENRANDOMIZESOUNDSOUNDSOUNDSOUNDSOUNDCALL";:LOCATE,50:PRINT"CALLPrtScOPEN1    OPEN2    OPEN3    OPEN     CALL";"Enter (";:COLOR 15,0:PRINT CHR$(17);"SOUNDSOUND'";:COLOR 7,0:PRINT")   : Ends entry and submits the cur- CALL*    OPEN";:COLOR 31,0:PRINT"End";:LOCATE,62:COLOR 7,0:PRINT"OPEN";
  418. 517  COLOR 31,0:PRINT CHR$(25);:LOCATE,68:COLOR 7,0:PRINT"OPENPgDn OPEN+    CALL";"                 rent Active Template as the";:LOCATE,50:PRINT"PSETTHENTHENTHENTHENTHENLOCATETHENTHENTHENTHENTHENTAB(THENTHENTHENTHENTHENLOCATETHENTHENTHENTHENTHENRANDOMIZESOUNDSOUNDSOUNDSOUNDSOUNDCALL";:LOCATE,18:PRINT"response.";:LOCATE,50:PRINT"CALL   CALL0  CALL   OPEN   CALL.  CALL   OPEN     ";
  419. 518  PRINT"CALL";:LOCATE,50:PRINT"CALL   CALL";:COLOR 31,0:PRINT"Ins";:COLOR 7,0:PRINT"CALL   OPEN   CALL";:COLOR 31,0:PRINT"Del";:COLOR 7,0:PRINT"CALL   OPEN     CALL";"Insert (";:COLOR 15,0:PRINT"Ins";:COLOR 7,0:PRINT")   : Inserts subsequent characters";:LOCATE,48
  420. 519  PRINT"atCLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDLOCATESOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDLOCATESOUNDSOUNDSOUNDSOUNDSOUND'";"                 the current position.  All rem-";:LOCATE 19,18:PRINT"aining characters to the right";:LOCATE 20,18:PRINT"will be pushed right one space.";:LOCATE 22,1:PRINT"Delete (";:COLOR 15,0
  421. 520  PRINT"Del";:COLOR 7,0:PRINT")   : Deletes the character at the current position and moves all";:LOCATE 23,18:PRINT"characters to the right one space to the left.";
  422. 521  LOCATE 25,20:COLOR 31,0:PRINT"Press PgDn to Continue or Esc to Exit...";:LOCATE 25,26:COLOR 16,7:PRINT"PgDn";:LOCATE 25,46:PRINT"Esc";
  423. 522  COLOR 7,0:I$=INKEY$:IF I$="" THEN 522 ELSE IF I$=CHR$(27) THEN 118
  424. 523  IF LEN(I$)<>2 OR RIGHT$(I$,1)<>"Q" THEN SOUND 100,2:GOTO 521
  425. 524  CLS:LOCATE ,28:COLOR 0,7:PRINT"C A S M A N";:LOCATE ,40:COLOR 9,0:PRINT"HELP SCREEN";:LOCATE ,52:COLOR 1,0:PRINT"#4";:LOCATE 3,1:COLOR 7,0:PRINT"Other Notes:";:LOCATE 6,1:COLOR 31,0:PRINT"<UNK! {00F9}>";:COLOR 7,0:PRINT"Once you have entered CASMAN, you ma";
  426. 525  PRINT"y remove both the CASMAN program disk, and ";" the DOS/BASICA disk, if you wish.";:LOCATE 10,1:COLOR 31,0:PRINT"<UNK! {00F9}>";:COLOR 7,0:PRINT"In the Display Title/Artist List mode (Menu Item 1,1), you may be prompted:";:LOCATE 11,2:COLOR 15,0
  427. 526  PRINT"Press (Ctrl) PgUp/PgDn, Esc to Exit or D to Display a Single Tape (incl. Songs)";:LOCATE 13,6:COLOR 7,0:PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE";:LOCATE 14,6:PRINT"OPEN Key        OPEN Function                 OPEN";:LOCATE 15,6:PRINT"SCREENTHENTHENTHEN";
  428. 527  PRINT"THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD";:LOCATE 16,6:PRINT"CALL";:LOCATE ,8:COLOR 15,0:PRINT"D";:LOCATE ,19:COLOR 7,0:PRINT"CALL Display any single tape. CALL    <UNK! {00FA}> These  keys  may  be  used  ";"     CALL";:LOCATE ,8:COLOR 15,0:PRINT"Esc";:LOCATE ,19
  429. 528  COLOR 7,0:PRINT"CALL Exit to menu.            CALL";:LOCATE ,53:COLOR 1,0:PRINT"anytime";:LOCATE ,61:COLOR 7,0:PRINT"during the display. ";"     CALL";:LOCATE ,8:COLOR 15,0:PRINT"PgUp";:LOCATE ,19:COLOR 7,0:PRINT"CALL Show previous screen.    CALL";
  430. 529  LOCATE 19,6:PRINT"CALL";:LOCATE ,8:COLOR 15,0:PRINT"PgDn";:LOCATE ,19:COLOR 7,0:PRINT"CALL Show next screen.        CALL    <UNK! {00FA}>";:LOCATE ,53:COLOR 0,7:PRINT"Ctrl";:LOCATE ,58:COLOR 15,0:PRINT"PgUp";:LOCATE ,64:COLOR 7,0:PRINT"is  entered  by  ";"     CALL";
  431. 530  LOCATE ,8:COLOR 0,7:PRINT"Ctrl";:LOCATE ,13:COLOR 15,0:PRINT"PgUp";:LOCATE ,19:COLOR 7,0:PRINT"CALL Show first screen.       CALL      holding down the";:LOCATE ,71:COLOR 0,7:PRINT"Ctrl";:LOCATE ,76:COLOR 7,0:PRINT"key  ";"     CALL";:LOCATE ,8
  432. 531  COLOR 0,7:PRINT"Ctrl";:LOCATE ,13:COLOR 15,0:PRINT"PgDn";:LOCATE ,19:COLOR 7,0:PRINT"CALL Show last screen.        CALL      and pressing";:LOCATE ,66:COLOR 0,7:PRINT"PgUp";:COLOR 7,0:PRINT".";:LOCATE 22,6:PRINT"CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND";
  433. 532  PRINT"SOUNDSOUND'";
  434. 533  LOCATE 25,20:COLOR 31,0:PRINT"Press PgDn to Continue or Esc to Exit...";:LOCATE 25,26:COLOR 16,7:PRINT"PgDn";:LOCATE 25,46:PRINT"Esc";
  435. 534  COLOR 7,0:I$=INKEY$:IF I$="" THEN 534 ELSE IF I$=CHR$(27) THEN 118
  436. 535  IF LEN(I$)<>2 OR RIGHT$(I$,1)<>"Q" THEN SOUND 100,2:GOTO 533
  437. 536  CLS:LOCATE ,28:COLOR 0,7:PRINT"C A S M A N";:LOCATE ,40:COLOR 9,0:PRINT"HELP SCREEN";:LOCATE ,52:COLOR 1,0:PRINT"#5";:LOCATE 3,1:COLOR 31,0:PRINT"<UNK! {00F9}>";:COLOR 7,0:PRINT"In the Search mode (Menu Item 2), you need only enter the first few words or  ";
  438. 537  PRINT" ";" letters of the artist, title, or song you wish to search for.  Capital letters,";" however, must be entered exactly as they would appear:";:LOCATE 7,4:PRINT"If you searched for";:LOCATE ,24:COLOR 9,0:PRINT"The";:COLOR 7,0:PRINT",";
  439. 538  LOCATE 8,29:COLOR 15,0:PRINT"The";:LOCATE ,33:COLOR 7,0:PRINT"end     would be found.";:LOCATE 9,29:COLOR 15,0:PRINT"The";:LOCATE ,33:COLOR 7,0:PRINT"END     would be found.";:LOCATE 10,29:COLOR 15,0:PRINT"The";:COLOR 7,0:PRINT"ater     would b";
  440. 539  PRINT"e found.";:LOCATE 11,29:PRINT"In";:LOCATE ,32:COLOR 15,0:PRINT"The";:LOCATE ,36:COLOR 7,0:PRINT"End  would";:LOCATE ,47:COLOR 15,0:PRINT"not";:LOCATE ,51:COLOR 7,0:PRINT"be found. (";:COLOR 15,0:PRINT"In";:LOCATE ,65:COLOR 7,0:PRINT"is th";
  441. 540  PRINT"e 1st word)";:LOCATE ,29:COLOR 15,0:PRINT"THE";:LOCATE ,33:COLOR 7,0:PRINT"END     would";:LOCATE ,47:COLOR 15,0:PRINT"not";:LOCATE ,51:COLOR 7,0:PRINT"be found. (";:COLOR 15,0:PRINT"H";:LOCATE ,64:COLOR 7,0:PRINT"and";:LOCATE ,68
  442. 541  COLOR 15,0:PRINT"E";:LOCATE ,70:COLOR 7,0:PRINT"are cap's)";:LOCATE 14,1:COLOR 31,0:PRINT"<UNK! {00F9}>";:COLOR 7,0:PRINT"When printing cassette covers (Menu Item 6), you are asked for the tapes to be ";" printed using";:LOCATE ,16:COLOR 0,7:PRINT"-";
  443. 542  COLOR 7,0:PRINT",";:LOCATE ,19:COLOR 0,7:PRINT",";:COLOR 7,0:PRINT", and 3 digits for each tape number.  See the examples below ";" for clarification:";:LOCATE 17,4:PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE";:LOCATE 18,4:PRINT"OPEN";
  444. 543  LOCATE ,6:COLOR 15,0:PRINT"Your Entry";:LOCATE ,22:COLOR 7,0:PRINT"OPEN";:LOCATE ,24:COLOR 15,0:PRINT"Tapes Printed";:LOCATE ,44:COLOR 7,0:PRINT"OPEN";:LOCATE ,54:COLOR 0,7:PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE";:LOCATE 19,4:COLOR 7,0:PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN";
  445. 544  PRINT"THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD";:LOCATE ,54:COLOR 0,7:PRINT"OPEN CASMAN written by: OPEN";:LOCATE 20,4:COLOR 7,0:PRINT"CALL 001,003,034,111 CALL 1 3 34 111          CALL";:LOCATE ,54:COLOR 0,7:PRINT"OPEN    Bill Youstra    OPEN";:LOCATE 21,4:COLOR 7,0:PRINT"CALL 001-03";
  446. 545  PRINT"4         CALL 1 2 3 4 5 ... 33 34 CALL";:LOCATE ,54:COLOR 0,7:PRINT"OPEN 5509 Manorfield Rd OPEN";:LOCATE 22,4:COLOR 7,0:PRINT"CALL 005,011-015,020 CALL 5 11 12 13 14 15 20 CALL";:LOCATE ,54:COLOR 0,7:PRINT"OPENRockville, MD  20853OPEN";:LOCATE 23,4:COLOR 7,0
  447. 546  PRINT"CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'";:LOCATE ,54:COLOR 0,7:PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD";
  448. 547  COLOR 7,0
  449. 548  LOCATE 25,28:COLOR 31,0:PRINT "Press Any Key to Exit...";
  450. 549  I$=INKEY$:IF I$="" THEN 549 ELSE 118
  451.